home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / MH Checking & Savings v2.4d.cpt / Checking & Savings Demo2.4 / background_13235.txt < prev    next >
Text File  |  1988-02-27  |  6KB  |  261 lines
  1. -- background: 13235 from stack: in.4
  2. -- bmap block id: 23901
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Map
  6. ----- HyperTalk script -----
  7. on copyright
  8.   -- THESE SCRIPTS ARE COPYRIGHTED BY MAC HELP COMPANY
  9.   -- CONTACT AUTHOR FOR PERMISSION TO USE THESE SCRIPTS
  10. end copyright
  11.  
  12. on "CopyButtonToHome"
  13.  
  14.   set userlevel to 5
  15.   get the userlevel
  16.   if it < 5 then exit CopyButtonToHome
  17.   put the name of this stack into StackName
  18.   delete word 1 of stackName
  19.   delete char 1 of stackName
  20.   delete last char of stackName
  21.   set the name of card button ID 16 to stackName
  22.  
  23.   choose button tool
  24.   click at the loc of card button stackName
  25.   doMenu "Copy Button"
  26.   push card
  27.   go home
  28.   doMenu "Paste Button"
  29.   set the style of card button stackName to transparent
  30.   set the loc of card button stackName to 354,294
  31.   choose browse tool
  32.  
  33.   pop card
  34.  
  35. end "CopyButtonToHome"
  36.  
  37.  
  38. -- part 4 (button)
  39. -- low flags: 00
  40. -- high flags: A003
  41. -- rect: left=55 top=209 right=327 bottom=232
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 1
  45. -- font id: 0
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: Bank SUB ACCOUNTS
  50. ----- HyperTalk script -----
  51. on mouseUp
  52.   go to card "Rpt."
  53. end mouseUp
  54.  
  55.  
  56.  
  57. -- part 5 (button)
  58. -- low flags: 00
  59. -- high flags: A003
  60. -- rect: left=31 top=113 right=231 bottom=208
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 1
  64. -- font id: 0
  65. -- text size: 12
  66. -- style flags: 0
  67. -- line height: 16
  68. -- part name: Bank Account ACTIVITY
  69. ----- HyperTalk script -----
  70. on mouseUp
  71.   go to card 2 of background "a"
  72. end mouseUp
  73.  
  74.  
  75.  
  76. -- part 6 (button)
  77. -- low flags: 00
  78. -- high flags: A003
  79. -- rect: left=11 top=19 right=137 bottom=188
  80. -- title width / last selected line: 0
  81. -- icon id / first selected line: 0 / 0
  82. -- text alignment: 1
  83. -- font id: 0
  84. -- text size: 12
  85. -- style flags: 0
  86. -- line height: 16
  87. -- part name: Bank Accounting
  88. ----- HyperTalk script -----
  89. on mouseUp
  90.   if the optionKey is down then
  91.     put "This will take you to the main card where you enter all" && "of your transactions, as well as where you can set up accounts" && "and sub accounts.  You can view your current account balances" && "here as well." into String
  92.     put the name of the target into ThisItem
  93.     HelpMsg1 String, ThisItem
  94.     exit mouseUp
  95.   end if
  96.  
  97.   go to card "a" of background "a"
  98. end mouseUp
  99.  
  100.  
  101.  
  102. -- part 7 (button)
  103. -- low flags: 00
  104. -- high flags: A003
  105. -- rect: left=270 top=209 right=327 bottom=447
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 1
  109. -- font id: 0
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: Income DAILY ACTIVITY
  114. ----- HyperTalk script -----
  115. on mouseUp
  116.   Global LastID
  117.  
  118.   if the optionKey is down then
  119.     put "This will take you to the individual transaction cards" && "of the of your dataBase activity." into String
  120.     put the name of the target into ThisItem
  121.     HelpMsg1 String, ThisItem
  122.     exit mouseUp
  123.   end if
  124.  
  125.   put empty into LastID
  126.   go to card "Main" of background "Income Record"
  127.  
  128. end mouseUp
  129.  
  130.  
  131.  
  132. -- part 8 (button)
  133. -- low flags: 00
  134. -- high flags: A003
  135. -- rect: left=242 top=113 right=231 bottom=419
  136. -- title width / last selected line: 0
  137. -- icon id / first selected line: 0 / 0
  138. -- text alignment: 1
  139. -- font id: 0
  140. -- text size: 12
  141. -- style flags: 0
  142. -- line height: 16
  143. -- part name: Income DATA BASE
  144. ----- HyperTalk script -----
  145. on mouseUp
  146.   Global ShortGivingDate
  147.  
  148.   if the optionKey is down then
  149.     put "This will take you to the database part of the program." && " The database operates separately from the program in that it" && "uses the same sub accounts, but it keeps track of them" && "separately from the banking transactions.  Go to the sub" && "account cards to view activity for any sub accounts." into String
  150.     put the name of the target into ThisItem
  151.     HelpMsg1 String, ThisItem
  152.     exit mouseUp
  153.   end if
  154.  
  155.   go to card "Main" of background "Income"
  156.   set the name of background button ID 139 to ShortGivingDate
  157.  
  158. end mouseUp
  159.  
  160.  
  161.  
  162. -- part 10 (button)
  163. -- low flags: 00
  164. -- high flags: 2000
  165. -- rect: left=461 top=44 right=75 bottom=498
  166. -- title width / last selected line: 0
  167. -- icon id / first selected line: 14767 / 14767
  168. -- text alignment: 1
  169. -- font id: 0
  170. -- text size: 12
  171. -- style flags: 0
  172. -- line height: 16
  173. -- part name: Tell
  174. ----- HyperTalk script -----
  175. on mouseUp
  176.   Global RegMessage, DoMessage, VersionMessage, BackinAFlash
  177.  
  178.   put False into BackinAFlash
  179.  
  180.  
  181.   if the shiftKey is down and the commandKey is down then
  182.     beep
  183.     set cursor to 4
  184.     push card
  185.     set lockscreen to true
  186.     go to card "RegCard"
  187.     put empty into card field "Check Address"
  188.     set the style of card field "Check Address" to transparent
  189.     show background field "Message"
  190.     beep
  191.     pop card
  192.     Go Home
  193.     exit mouseUp
  194.   end if
  195.  
  196.   if VersionMessage contains "Demo" then
  197.     answer VersionMessage & Return & "See where to Register or Continue?" & Return & Return & "This program is copyrighted by Mac Help Company, 1988.  All Rights Reserved." with "Continue" or "See"
  198.  
  199.     if it is "See" then
  200.       answer RegMessage with "Good Deal"
  201.     end if
  202.   else
  203.     answer VersionMessage & Return & Return & "This program is copyrighted by Mac Help Company, 1988." && " All Rights Reserved." with "OK"
  204.   end if
  205.  
  206. end mouseUp
  207.  
  208.  
  209.  
  210. -- part 11 (button)
  211. -- low flags: 00
  212. -- high flags: 2000
  213. -- rect: left=353 top=41 right=82 bottom=420
  214. -- title width / last selected line: 0
  215. -- icon id / first selected line: 1011 / 1011
  216. -- text alignment: 1
  217. -- font id: 0
  218. -- text size: 12
  219. -- style flags: 0
  220. -- line height: 16
  221. -- part name: Go home
  222. ----- HyperTalk script -----
  223. on mouseUp
  224.   Global BackinAFlash
  225.  
  226.   put False into BackinAFlash
  227.   visual effect iris close to black
  228.   if the commandKey is down then
  229.     doMenu "Quit HyperCard"
  230.   else
  231.     go home
  232.   end if
  233. end mouseUp
  234.  
  235.  
  236.  
  237. -- part 12 (button)
  238. -- low flags: 00
  239. -- high flags: 2000
  240. -- rect: left=414 top=45 right=76 bottom=451
  241. -- title width / last selected line: 0
  242. -- icon id / first selected line: 21060 / 21060
  243. -- text alignment: 1
  244. -- font id: 0
  245. -- text size: 12
  246. -- style flags: 0
  247. -- line height: 16
  248. -- part name: Directions
  249. ----- HyperTalk script -----
  250. on mouseUp
  251.   Global HelpCardName
  252.  
  253.   show card field "Blank Pop"
  254.   show card button "Help"
  255.   show card button "Cancel"
  256.  
  257.   put empty into HelpCardName
  258.  
  259. end mouseUp
  260.  
  261.